home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / gsdb25.zip / DB_XPL07.PAS < prev    next >
Pascal/Delphi Source File  |  1990-11-28  |  688b  |  32 lines
  1. program DB_Xpl07;
  2. uses
  3.    CRT,
  4.    DOS,
  5.    GS_KeyI,
  6.    GS_dBFld,
  7.    GS_dBTbl,
  8.    GS_dBase;
  9. var
  10.    Health  : GS_dBFld_Objt;
  11.    HlthTab : dbTabl_Pick_Obj;
  12.  
  13. begin
  14.    ClrScr;
  15.    Health.Init('HEALTH');
  16.    Health.Open;
  17.    Health.Index('FOODNAME');
  18.    HlthTab.Init_dbTabl(Health, '[ FOODS ]',20,2,60,22,
  19.                        Yellow,Blue,LightGray,Blue,LightGray);
  20.    while HlthTab.Pick_dBTabl('FOOD+"  ("+FOOD_CODE+")"') do
  21.    begin
  22.       while Health.FieldUpdateScreen do
  23.       begin
  24.          if GS_KeyI_Chr = Kbd_PgUp then
  25.             Health.GetRec(Prev_Record)
  26.          else
  27.             Health.GetRec(Next_Record);
  28.          end;
  29.    end;
  30.    Health.Close;
  31. end.
  32.